home *** CD-ROM | disk | FTP | other *** search
/ Aminet 33 / Aminet 33 - October 1999.iso / Aminet / dev / c / GAPLib.lha / GAPLib / gaplib / increv.c < prev    next >
Encoding:
C/C++ Source or Header  |  1999-07-04  |  701 b   |  34 lines

  1. #include <stdio.h>
  2. #include <string.h>
  3. int main(int w8U,char *s4E[])
  4. {
  5. FILE *f;
  6. long val;
  7. if(w8U<2 || (w8U==2 && !strcmp(s4E[1],"val"))) {
  8. if((f=fopen("GAP_Revision","rb"))!=NULL) {
  9. fscanf(f,"%d",&val);
  10. fclose(f);
  11. if((f=fopen("GAP_Revision","wb"))!=NULL) {
  12. fprintf(f,"%d",val+1);
  13. } else {
  14. fprintf(stderr,"Revision update failed.\n");
  15. }
  16. } else {
  17. fprintf(stderr,"Revision update failed.\n");
  18. }
  19. } else if(w8U==2 && !strcmp(s4E[1],"ver")) {
  20. if((f=fopen("GAP_Version","rb"))!=NULL) {
  21. fscanf(f,"%d",&val);
  22. fclose(f);
  23. if((f=fopen("GAP_Version","wb"))!=NULL) {
  24. fprintf(f,"%d",val+1);
  25. } else {
  26. fprintf(stderr,"Version update failed.\n");
  27. }
  28. } else {
  29. fprintf(stderr,"Version update failed.\n");
  30. }
  31. }
  32. return(0);
  33. }
  34.